home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / cmpnew / nocmpinc.lsp < prev    next >
Encoding:
Lisp/Scheme  |  1989-10-19  |  455 b   |  23 lines
  1.  
  2.  
  3. (in-package 'compiler)
  4.  
  5. (defvar *cmpinclude-string* nil)
  6.  
  7. (defun write-out-cmpinclude (stream  string)
  8.   (do ((i 0 (setq i (the fixnum (+ i 1))))
  9.        (l (length *cmpinclude-string*)))
  10.       ((>= i l))
  11.       (declare (fixnum i l))
  12.       (or string (setq string *cmpinclude-string*))
  13.       (or string (error "need a string"))
  14.       (let ((tem (aref (the string  string i))))
  15.     (declare (character tem))
  16.     (write-char tem stream))))
  17.   
  18.  
  19.  
  20.  
  21.       
  22.       
  23.